#!/usr/bin/perl

#here is my mad lib, I know it's a lot of lines but it works!
# by kristina warren
 
print "Kristina's Awesome Ad-Lib Maker\n";
 
print "Noun: "; 
$noun = <STDIN>;
chomp $noun;
print "Person: ";
$person = <STDIN>;
chomp $person;
print "Occupation: ";
$occupation = <STDIN>;
chomp $occupation;
print "Place: ";
$place = <STDIN>;
chomp $place;
print "Person: ";
$person2 = <STDIN>;
chomp $person2;
print "Number: ";
$number = <STDIN>;
chomp $number;
print "Adjective: ";
$adj = <STDIN>;
chomp $adj;
print "Noun: ";
$noun1 = <STDIN>;
chomp $noun1;
print "Animal: ";
$animal = <STDIN>;
chomp $animal;
print "Fruit: ";
$fruit = <STDIN>;
chomp $fruit; 
print "Yo " .($noun) . "\n";
print "I'ma let you finish but " .($person) . "\n";
print "was the best " .($occupation) .  " of " .($place) . "\n";
print "unlike " . ($person2) . "\n";
print "because " . ($number) . " does not " . ($adj) . "\n"; 
print "code in " . ($noun1) . " "  . ($animal) . " " . ($fruit) . "\n"; 


